Animation of Cos(x)

circlePts[θ_]:= 
	Graphics[{Circle[{0,0},1],{Hue[0.6],Thickness[.013],Line[{{0,0}, {Cos[θ],Sin[θ]}}]}, {Hue[0],Line[{{0, Sin[θ]}, {Cos[θ], Sin[θ]}}]},{Hue[0],PointSize[.03],Point[{Cos[θ], Sin[θ]}]}},AspectRatio -> 1, Axes -> Automatic,Ticks ->{{-1, 1}, {-1, 1}} ,
Epilog->Text[StringJoin["θ = ", ToString[θ,TraditionalForm]], {Cos[θ] + .4, Sin[θ]}]]

cosPlot[θ_]:=Plot[Cos[x], {x, 0, 2π},  Ticks->{{0,(π/2),π,((3 π)/2),2 π},{-1, 1}},PlotRange ->{-1, 1},PlotLabel -> "y = Cos(θ)", 
		AxesLabel ->{"θ",None},Epilog->{{Hue[0],PointSize[.04],Point[{θ, Cos[θ]}]}, {Hue[0],Line[{{θ, 0}, {θ,Cos[θ]}}]}},
		DisplayFunction->Identity,AspectRatio->1]

Manipulate[GraphicsRow[{circlePts[θ],cosPlot[θ]}], {θ, 0, 2π, (π/12)}]